home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / complib / fft3di.z / fft3di
Encoding:
Text File  |  1998-10-30  |  5.2 KB  |  133 lines
  1.  
  2.  
  3.  
  4. ccccfffffffftttt3333ddddiiii,,,,zzzzfffffffftttt3333ddddiiii((((3333FFFF))))                                        ccccfffffffftttt3333ddddiiii,,,,zzzzfffffffftttt3333ddddiiii((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      ccccfffffffftttt3333ddddiiii,,,, zzzzfffffffftttt3333ddddiiii ---- initialize the coefficient array for complex-to-
  10.      complex 3D FFT modules.
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  13.      _F_O_R_T_R_A_N _S_P_E_C_I_F_I_C_A_T_I_O_N
  14.      ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee CCCCFFFFFFFFTTTT3333DDDDIIII(((( nnnn1111,,,, nnnn2222,,,, nnnn3333,,,, ccccooooeeeeffffffff ))))
  15.      iiiinnnntttteeeeggggeeeerrrr                  nnnn1111,,,, nnnn2222,,,, nnnn3333
  16.      ccccoooommmmpppplllleeeexxxx             ccccooooeeeeffffffff((((((((nnnn1111++++11115555)))) ++++ ((((nnnn2222++++11115555)))) ++++ ((((nnnn3333++++11115555))))))))
  17.  
  18.      ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee ZZZZFFFFFFFFTTTT3333DDDDIIII(((( nnnn1111,,,, nnnn2222,,,, nnnn3333,,,, ccccooooeeeeffffffff ))))
  19.      iiiinnnntttteeeeggggeeeerrrr                  nnnn1111,,,, nnnn2222,,,, nnnn3333
  20.      ddddoooouuuubbbblllleeee ccccoooommmmpppplllleeeexxxx      ccccooooeeeeffffffff((((((((nnnn1111++++11115555)))) ++++ ((((nnnn2222++++11115555)))) ++++ ((((nnnn3333++++11115555))))))))
  21.  
  22.      _C _S_P_E_C_I_F_I_C_A_T_I_O_N
  23.      ####iiiinnnncccclllluuuuddddeeee <<<<fffffffftttt....hhhh>>>>
  24.      ccccoooommmmpppplllleeeexxxx ****ccccfffffffftttt3333ddddiiii(((( iiiinnnntttt nnnn1111,,,, iiiinnnntttt nnnn2222,,,, iiiinnnntttt nnnn3333,,,, ccccoooommmmpppplllleeeexxxx ****ccccooooeeeeffffffff))));;;;
  25.  
  26.      zzzzoooommmmpppplllleeeexxxx ****zzzzfffffffftttt3333ddddiiii(((( iiiinnnntttt nnnn1111,,,, iiiinnnntttt nnnn2222,,,, iiiinnnntttt nnnn3333,,,, zzzzoooommmmpppplllleeeexxxx ****ccccooooeeeeffffffff))));;;;
  27.  
  28.  
  29. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  30.      Initialize the coefficient array which is used in the 3D FFT modules.
  31.      This array contains the different twiddle factors and the factorization
  32.      of N1,N2 and N3 into prime numbers.
  33.      As the FFT modules cfft3d or zfft3d only read the _c_o_e_f_f array, it may be
  34.      reused as many times as necessary once it has been initialized.
  35.  
  36.      In C, if _p_t_r is NULL, _c_f_f_t_3_d_i or _z_f_f_t_3_d_i returns a pointer to an
  37.      allocated buffer.
  38.  
  39.      CFFT3DI should be used to initialize the coefficient array before any
  40.      call to CFFT3D
  41.      ZFFT3DI should be used to initialize the coefficient array before any
  42.      call to ZFFT3D
  43.  
  44. PPPPAAAARRRRAAAAMMMMEEEETTTTEEEERRRRSSSS
  45.      NNNN1111 ---- Integer, the first dimension size of the 3D sequence.  Unchanged on
  46.      exit.
  47.  
  48.      NNNN2222 ---- Integer, the second dimension size of the 3D sequence.  Unchanged on
  49.      exit.
  50.  
  51.      NNNN3333 Integer, the third dimension size of the 3D sequence.  Unchanged on
  52.      exit.
  53.  
  54.      CCCCOOOOEEEEFFFFFFFF ---- Array (C or Fortran) or NULL pointer(C).
  55.  
  56. EEEExxxxaaaammmmpppplllleeee ooooffff CCCCaaaalllllllliiiinnnngggg SSSSeeeeqqqquuuueeeennnncccceeee
  57.      Initializing a coefficient array for complex-to-complex FFTs of size
  58.      200x300X125
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70. ccccfffffffftttt3333ddddiiii,,,,zzzzfffffffftttt3333ddddiiii((((3333FFFF))))                                        ccccfffffffftttt3333ddddiiii,,,,zzzzfffffffftttt3333ddddiiii((((3333FFFF))))
  71.  
  72.  
  73.  
  74.      _F_o_r_t_r_a_n :
  75.           complex coeff((200+15)+(300+15)+(125+15))
  76.           call cfft3di( 200, 300, 125, coeff)
  77.  
  78.      _C :
  79.           #include <fft.h>
  80.           complex *coeff;
  81.           coeff = cfft3di( 200, 300, 125, NULL);
  82.  
  83. SSSSEEEEEEEE AAAALLLLSSSSOOOO
  84.           fft, cfft3d, zfft3d
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.                                                                         PPPPaaaaggggeeee 2222
  130.  
  131.  
  132.  
  133.